<script>on mouseUpgo to next cardend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>216</top>
<right>25</right>
<bottom>240</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseUpgo to previous cardend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>34</left>
<top>218</top>
<right>193</right>
<bottom>237</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Read Header Files</name>
<script>on mouseUpput false into multiput 0 into fileNumberanswer "Shall I go straight on and export the data after I’ve read it in?" ¬with "Yes", "No"if it is "Yes" thenput true into batchModeelseput false into batchModeend ifanswer "Parse one file or the list from a folder?" with "Cancel",¬"Many", "One"if it is "Cancel" then exit mouseUpif it is "One" thenanswer file "C header file to parse:" of type "TEXT"if it is empty then exit mouseUpput it into fileName-- this function is in home and strips off the pathput lastHCItem(":", fileName) into shortFileNameput getPath(fileName) into pathend ifif it is "Many" thenput true into multiput 1 into fileNumberanswer file "Open any file in the source folder:" of type "TEXT"if it is empty then exit mouseUpput it into fileName-- this gets the path from the pull file and pathput getPath(fileName) into pathput files(path) into background fld "Files"put background fld "files" into fileListend ifrepeatif multi then-- get the next file name from the listput line fileNumber of fileList into fileNameif fileName is empty thenif batchMode thendoExport "New TextBase"end ifbeepbeepbeepexit mouseUpend ifput fileName into shortFileNameput path before fileNameput fileNumber + 1 into fileNumberend ifopen file fileNameput "Reading file number: " & fileNumber -1 & " “" &fileName & "”…"read from file fileName until returngo to the last card of background "Protos"repeat while it is not emptyput it into lineset cursor to busyif isCfunction(line) then-- collect the functionput offset(")", line) into closeBracketAt-- test for multi-line functionsif closeBracketAt is 0 thenread from file fileName until ")"put line & it & ";" into funcLineelse-- handle single line function prototypesput character 1 to closeBracketAt of line & ";" into funcLineend if-- replaces tabs with spacesput stripTabs(funcLine) into funcLine-- remove the return typesput offset("(", funcLine) into openBracketAtif openBracketAt is not zero then-- scan back over spaces to find the function namerepeat with i = openBracketAt down to 1if character i of funcLine is not space then exit repeatend repeat-- scan back until we find the space before the function namerepeat with i = i - 3 down to 1if character i of funcLine is space then exit repeatend repeatput character 1 to i of funcLine into returnTypedelete character 1 to i of funcLineend if-- now prepare to put the information in a carddoMenu "New Card"put shortFileName into background field "FileName"if word 1 of returnType is "pascal" thendelete word 1 of returnTypeend ifif word 1 of returnType is empty thenput "void" into returnTypeend ifput returnType into background field "Returns"-- strip off leading spacesrepeat with i = 1 to the number of chars in funcLineif character 1 of funcLine is space or ¬character 1 of funcLine is tab thendelete character 1 of funcLineelseexit repeatend ifend repeat-- this gets rid of the carriage returns in the textrepeat with i = 1 to the number of words in funcLineput word i of funcLine & space after background field "ProtoType"end repeatend ifread from file fileName until returnend repeat -- no more lines to readif not multi thenclose file fileNamehide msgexit mouseUpend ifclose file fileNameend repeat -- reading multi filesend mouseUp-- This should be improved but works well enough for the MPW headersfunction isCfunction lineif word 1 of line is "pascal" thenreturn trueelsereturn falseend ifend isCfunction-- replaces tabs with spacesfunction stripTabs linerepeat with i = 1 to the number of characters in lineif character i of line is tab thenput space into character i of lineend ifend repeatreturn lineend stripTabs-- pinched from Home for completenessfunction lastHCItem delim,theText-- returns the portion of <theText> that follows the last <delim>if delim is in theText thenput lastHCItem(delim,char offset(delim,theText) + 1 to ¬length(theText) of theText) into theTextend ifreturn theTextend lastHCItemfunction getPath theText-- returns the portion of <theText> up to the last <delim>repeat with i = the number of chars in theText down to 1if character i of theText is ":" then exit repeatend repeatreturn character 1 to i of theTextend getPath-- This sorts the cards by the function name-- outputs the text to a file with the words wrapped at the-- first word break after 65 characters are counted-- output is: functionName(parameters); // type fileName.h-- By: Peter Marks Access Informatics (02) 555 8414on doExport fileNamesort by field "ProtoType"put "Sorting the stack, please wait…" into msgopen file fileNamewrite "=" to file fileNamerepeat with i = 1 to the number of cards in this stackgo to card iset cursor to busyput background fld "Prototype" & " // " & ¬background fld "returns" & ¬" <" & background fld "fileName" & ">|" into outLine-- write out the text, wrapping at the first word after 61 chars wideput false into breakrepeat with j = 1 to the number of characters in outlineif break and character j of outline is space thenwrite return to file fileNameput false into breakend ifwrite character j of outline to file fileNameif j mod 61 is zero thenput true into break -- break when you can!set cursor to busyend ifend repeatwrite return to file fileNameend repeatwrite "=" to file fileNameclose file fileNamebeepend doExport</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>85</left>
<top>139</top>
<right>217</right>
<bottom>203</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Files</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>2</left>
<top>180</top>
<right>82</right>
<bottom>202</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Delete Cards</name>
<script>on mouseUpanswer "Do you want to delete all data from this stack?" with ¬"Yes", "Cancel"if it is "Cancel" then exit mouseUprepeat with i = 2 to the number of cards in this stackgo to card 2doMenu "Delete Card"set cursor to busyend repeatend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>199</left>
<top>218</top>
<right>379</right>
<bottom>237</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export To OnBase</name>
<script>-- This sorts the cards by the function name-- outputs the text to a file with the words wrapped at the-- first word break after 65 characters are counted-- output is: functionName(parameters); // type fileName.h-- By: Peter Marks Access Informatics (02) 555 8414on mouseUpask file "Name your export file:" with "TextBase"if it is empty then exit mouseUpput it into fileNamesort by field "ProtoType"put "Sorting the stack, please wait…" into msgopen file fileNamewrite "=" to file fileNamerepeat with i = 2 to the number of cards in this stackgo to card iset cursor to busyput background fld "Prototype" & " // " & ¬background fld "returns" & ¬" <" & background fld "fileName" & ">|" into outLine-- write out the text, wrapping at the first word after 61 chars wideput false into breakrepeat with j = 1 to the number of characters in outlineif break and character j of outline is space thenwrite return to file fileNameput false into breakend ifwrite character j of outline to file fileNameif j mod 61 is zero thenput true into break -- break when you can!set cursor to busyend ifend repeatwrite return to file fileNameend repeatwrite "=" to file fileNameclose file fileNamebeepend mouseUp</script>
